home *** CD-ROM | disk | FTP | other *** search
/ Aminet 52 / Aminet 52 (2002)(GTI - Schatztruhe)[!][Dec 2002].iso / Aminet / util / misc / sss.lha / sss / cod / main.esa < prev    next >
Text File  |  1994-06-20  |  914b  |  41 lines
  1. *******************************************************************************
  2. * main 1.3.2
  3. *******************************************************************************
  4.  
  5.     machine    68020
  6.     include    defs.i
  7.  
  8.  
  9.  
  10. *******************************************************************************
  11.  
  12.     CODE
  13.  
  14.     when.s init[a0,d0]    ;initialization
  15.  
  16.      when.s ParseCmdLn[#CmdLn]    ;get commandline arguments
  17.       prt[#txt_ttl]    ;must come after ParseCmdLn[]
  18.       when.s ~settings[]    ;open files, allocates memory, etc.
  19.        GvInfo[]        ;show some information
  20.        splt[]        ;if no error, execute splitting
  21.       ewhen
  22.       ShwRslt[d0]    ;d0 returned by settings[] or splt[]
  23.      othw
  24.       prt[#txt_ttl]
  25.       prt[#txt_UsgHlp]    ;show help text
  26.      ewhen
  27.  
  28.     ewhen
  29.     ClnUp[]        ;final cleanup
  30.     rts
  31.  
  32.  
  33.  
  34. *******************************************************************************
  35. * subroutines and data
  36.  
  37.     include    splt.ei
  38.     include    opts.ei
  39.     include    misc.ei
  40.     include    dat.i
  41.